LEX 'RPTLEX'
  ID #52
  MSG 0
  POLL 0
  ENTRY RPT
  CHAR #F
  KEY 'RPT$'
  TOKEN 11
  ENDTXT
  NIBHEX 8422
RPT GOSBVL #0BD8D
  GOC R1
  D1=D1+ 16
  GOSBVL #1B223
  GOC R2
R1 LCHEX 0B
  GOVLNG #09393
R2 R1=A
  A=0 W
  GOSBVL #0BD38
  ?A#0 A
  GOYES R3
  D1=D1- 16
  GOTO E4
R3 R2=A
  CD1EX
  D1=C
  C=C+A A
  R0=C
  R3=C
  D=C A
  C=R1
  GOSBVL #1B349
  C=D A
  C=C-A A
  GOC R5
  AD0EX
  D0=(5) #2F8BB
  DAT0=A A
  A=R2
  B=A A
  A=R0
  D1=A
  D0=(5) #2F594
  A=DAT0 A
  D0=A
  D0=D0+ 16
  AD0EX
  ?C>=A A
  GOYES R6
R5 GOVLNG #0944D
R6 A=R1
  A=A-1 A
  R1=A
  GOC R7
  C=R3
  AD1EX
  GOSBVL #1B0EE
  GONC R6
R7 A=R3
  CD1EX
  D1=C
  A=A-C A
  B=A A
  D0=(5) #2F8BB
  A=DAT0 A
  D0=A
  A=0 W
  A=B A
  ASL W
  ASL W
  P= 0
  A=A-1 P
  D1=D1- 16
  DAT1=A W
E4 GOVLNG #0F23C
  END